home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
How Many Bugs in a Box
/
How Many Bugs in a Box.cdr
/
start.dir
/
00002_Script_2
< prev
next >
Wrap
Text File
|
1995-02-26
|
893b
|
39 lines
on startmovie
set the searchCurrentFolder = 0
global fh
if the machineType = 256 then
-- seek config.cfg file - FILEIO.DLL required
set file = fileio(mnew, "read","config.cfg")
if objectp(file) then
beep
beep
-- open config.cfg file on hd
set trang = word 1 of file(mreadline)
set the searchPath = [the pathname,trang&":\bugs\"]
-- grab anything else that may be here
file(mdispose)
else
beep
set the searchpath = [the pathname & "bugs\"]
end if
exit
else
set the searchpath = [the pathname&"bugs:", "How Many Bugs?:bugs:"]
end if
set the searchCurrentFolder = 0
if (not objectp(fhider)) then
--openxlib("finderhider.xobj")
set fh = finderhider(mnew)
end if
fh(mShowBorder,1)
fh(mupdateborder)
end